   Ptr  soptr[10];
   int  toota[400][8];
   int lz,tootazlr;

    soptr[0] = NewPtr(sizeof(char)*5000*2* 10) ;
        for (i=1;i<=9;++i)  soptr[i] = soptr[i-1] +(long) (sizeof(char )*5000*2);

   /* NOCH EIN BISSCH EN SPEICHER */
    soptr[0] = NewPtr(sizeof(char)*5000*2* 10) ;
        for (i=1;i<=9;++i)  soptr[i] = soptr[i-1] +sizeof(char )*5000*2;
    
        

                                                 GetVol(NULL,&reply.vRefNum);
                                                  FSOpen("\pWAVES",reply.vRefNum,&refnum);
                                                   bietes=  50000L;
                                                   FSRead(refnum,&bietes, soptr[1] );       
                                                   FSClose(refnum);  


																								tz=0;
																								tez=flugge;
																								if  (retus[i][3]==16) tez=flugge;
																								while (tz<tez) { ++tz;
																								 if (retus[i][4]!=0) 
																								 { 
                   					                                                                 zlr=retus[i][20];
                   					                                                                 ++zlr;
                   					                                                                 retus[i][20]=zlr;
                   					                                                                 if (zlr>4999) {   retus[i][4]=5; retus[i][3]=5 ; tz=25; };                       
                   					                                                                 
                   					                                      
                   					                                                                 retus[i][0]=retus[i][0]+*(soptr[tax]+zlr*2*sizeof(char));                   					                                                         
                    					                                                             retus[i][1]=retus[i][1]+*(soptr[tax]+zlr*2*sizeof(char)+1);
                     					                   
                     					                                                             if (  *(soptr[tax]+(zlr+1)*2*sizeof(char))==101) 
                     					                                                             {  
                     					                                                                            if  (retus[i][3]!=16)  { retus[i][3]=0; 
                     					                                                                                                                retus[i][4]=0; 
                     					                                                                                                                 retus[i][19]=0; 
                     					                                                                          };       
                              
                     					                                                                             tz=25; 
                     					                                                                       };
                     					                                                         }  else ;//?
                     					                                                           
                     					                                                           
                     					                                                           };